home *** CD-ROM | disk | FTP | other *** search
/ Turnbull China Bikeride / Turnbull China Bikeride - Disc 1.iso / ARGONET / PD / SOUND / QTMPLAY2.ARC / !QTMPlay / Plugins / Formats / !RunImage (.txt) next >
RISC OS BBC BASIC V Source  |  1997-08-10  |  2KB  |  103 lines
  1.  > Format enumerator
  2. _formats_memory
  3. _formats_initialise(scratcharea%,module%)
  4. !scratcharea%=module%
  5.  "Wimp_OpenTemplate",,"<QTMPlay$Dir>.Plugins.Formats.Templates"
  6.     +_formats_window%=
  7. load_window("Layers")
  8.  "Wimp_CloseTemplate"
  9. _formats_begin(scratcharea%)
  10.  "QTMPlayer_Info",1 
  11.  ,_formats_loaded%
  12. wbk%!0=0
  13. &wbk%!4=-(52+(_formats_loaded%*48))
  14. wbk%!8=930
  15. wbk%!12=0
  16.  "Wimp_SetExtent",_formats_window%,wbk%
  17. open_window(_formats_window%)
  18. _formats_poll(scratcharea%,
  19.  action%,block%)
  20.  dummy%,more%,winx%,winy%
  21. dummy%=
  22.  action% 
  23.  !block%=_formats_window% 
  24.  "Wimp_RedrawWindow",,block% 
  25.  more%
  26.  "QTMPlayer_Info",1 
  27.  ,_formats_loaded%
  28.    action%=0
  29.    winx%=block%!4
  30.    winy%=block%!16
  31.    winx%-=block%!20
  32.    winy%-=block%!24
  33.    window%=block%!0
  34.  more%
  35.  _formats_loaded%>0 
  36. '%     vissy%=-(winy%-block%!32)-48
  37. (%     vismy%=-(winy%-block%!40)+48
  38.      _posy%=winy%-80
  39.      _poswy%=-48
  40.      _layer%=0
  41.      
  42. --      
  43.  _poswy%>vissy% 
  44.  _poswy%<vismy% 
  45. .E       
  46.  "QTMPlayer_Info",2,_layer% 
  47.  ,_name%,_author%,_version%
  48.        block%!0=8
  49.        block%!4=_poswy%-44
  50.        block%!8=374
  51.        block%!12=_poswy%
  52.        block%!16=385876253
  53.        block%!20=_name%
  54. 5"       block%!24=sample_valid%
  55.        block%!28=40
  56. 7%       
  57.  "Wimp_PlotIcon",,block%
  58.        block%!0=380
  59.        block%!4=_poswy%-44
  60.        block%!8=786
  61.        block%!12=_poswy%
  62.        block%!16=385876253
  63.        block%!20=_author%
  64. >"       block%!24=sample_valid%
  65.        block%!28=40
  66. @%       
  67.  "Wimp_PlotIcon",,block%
  68.        block%!0=793
  69.        block%!4=_poswy%-44
  70.        block%!8=922
  71.        block%!12=_poswy%
  72.        block%!16=385876253
  73. F,       $sample_text%=
  74. version(_version%)
  75. G!       block%!20=sample_text%
  76. H"       block%!24=sample_valid%
  77.        block%!28=8
  78. J%       
  79.  "Wimp_PlotIcon",,block%
  80.       
  81.       _posy%-=48
  82.       _poswy%-=48
  83.       _layer%+=1
  84. O4     
  85.  _layer%=_formats_loaded% 
  86.  _poswy%<vissy%
  87. P        
  88. Q     !block%=_formats_window%
  89. R.    
  90.  "Wimp_GetRectangle",,block% 
  91.  more%
  92.  3 : 
  93.  !block%=_formats_window% 
  94.  dummy%=
  95. =dummy%
  96. version(a%)
  97.  string$
  98. string$=
  99. (string$)<3
  100.  string$="0"+string$
  101. string$,1)+"."+
  102. string$,2)
  103.